home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b8.d64 / demo 3.4.l < prev    next >
Text File  |  2007-02-28  |  1KB  |  54 lines
  1. 0010 SETGRAPHIC 0
  2. 0020 HIDETURTLE 
  3. 0030 DIM IMAGE$ OF 64, IMAGE1$ OF 64
  4. 0040 FOR I:=1 TO 63 DO
  5. 0050 IMAGE$:=IMAGE$+CHR$(255)
  6. 0060 READ INFO
  7. 0070 IMAGE1$:=IMAGE1$+CHR$(INFO)
  8. 0080 ENDFOR I
  9. 0090 IMAGE$:=IMAGE$+CHR$(0)
  10. 0100 IMAGE1$:=IMAGE1$+CHR$(0)
  11. 0110 DEFINE 0,IMAGE$
  12. 0120 DEFINE 1,IMAGE1$
  13. 0130 IDENTIFY 0,0
  14. 0140 IDENTIFY 1,1
  15. 0150 SPRITECOLOR 0,2
  16. 0160 SPRITECOLOR 0,2
  17. 0170 SPRITESIZE 0,1,1
  18. 0180 SPRITESIZE 1,0,0
  19. 0190 X:=0; Y:=199
  20. 0200 REPEAT 
  21. 0210 SPRITEPOS 0,X,99
  22. 0220 SPRITEPOS 1,200,Y
  23. 0230 IF SPRITECOLLISION(1,1) THEN
  24. 0240 IF X>319 THEN
  25. 0250 X:=0
  26. 0260 ELSE 
  27. 0270 X:=X-1
  28. 0280 ENDIF 
  29. 0290 IF Y<0 THEN
  30. 0300 Y:=199
  31. 0310 ELSE 
  32. 0320 Y:=Y-1
  33. 0330 ENDIF 
  34. 0340 ELSE 
  35. 0350 IF X>319 THEN
  36. 0360 X:=0
  37. 0370 ELSE 
  38. 0380 X:=X+1
  39. 0390 ENDIF 
  40. 0400 IF Y<0 THEN
  41. 0410 Y:=199
  42. 0420 ELSE 
  43. 0430 Y:=Y-1
  44. 0440 ENDIF 
  45. 0450 ENDIF 
  46. 0460 UNTIL KEY$<>CHR$(0)
  47. 0470 DATA 4,0,32,10,0,80,17,25,136
  48. 0480 DATA 33,0,132,6,0,96,8,0,16
  49. 0490 DATA 18,0,72,33,129,132,32,0,4
  50. 0500 DATA 32,0,4,32,24,4,16,6,8
  51. 0510 DATA 8,60,16,4,0,32,3,0,192
  52. 0520 DATA 0,25,0,0,102,0,0,102,0
  53. 0530 DATA 2,102,64,5,102,160,8,231,16
  54.